Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1230 1830 (N56E17 L=211)  1828    167        5 (1169/1779-1305/1895) -11.9 E29-E07 N53-N64
      2  872 1672 (N30E30 L=197)  2130    581       11 ( 707/1532-1035/1846) -16.1 E59-E14 N25-N39
      3 1358 1475 (N32W08 L=236)   901    165        3 (1307/1410-1411/1540) -26.6 W03-W13 N27-N35
      4 1044 1380 (N16E08 L=219)   230     99        1 (1004/1345-1086/1410) -18.4 E11-E05 N15-N17
      5  274 1384 (S01E63 L=165)   478     51        1 ( 253/1362- 307/1404)   0.0 E66-E58 S02-N00
      6  257 1241 (S10E58 L=169)  1242    185        3 ( 202/1151- 308/1293)  55.0 E62-E54 S16-S06
      7 1335 1189 (N13W13 L=241)   585    195        0 (1314/1096-1361/1273) -74.7 W11-W15 N07-N18
      8 1551 1007 (N09W32 L=259)   233    108        0 (1535/ 959-1578/1050)  90.0 W30-W32 N06-N12
      9  650  955 (S18E20 L=208)   331    138        1 ( 585/ 926- 709/ 971)   6.3 E24-E15 S18-S15
     10 1058  766 (S18W09 L=237)   369    136        1 (1016/ 734-1119/ 812)  -7.1 W05-W13 S19-S16
     11  963  668 (S26W06 L=234)   297    121        0 ( 913/ 624-1012/ 710)  66.8 W04-W08 S29-S22
     12  255  658 (S47E58 L=170)   486     69        1 ( 227/ 627- 277/ 686)  24.4 E66-E52 S49-S44
     13 1493  628 (S13W40 L=268)   310     94        2 (1461/ 586-1511/ 665) -15.9 W36-W43 S15-S11
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y