Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  857 1867 (N66W26 L= 41)   732     78        1 ( 835/1824- 878/1899)  45.0 W19-W34 N60-N70
      2 1167 1835 (N49W46 L= 61)   981    162        1 (1115/1783-1221/1892)   9.5 W36-W60 N46-N52
      3  766 1825 (N65W10 L= 25)   581     66        1 ( 749/1789- 788/1855)  58.0 W06-W15 N61-N69
      4  898 1761 (N53W17 L= 32)   457    101        0 ( 854/1732- 937/1794)   9.5 W11-W23 N52-N55
      5 1073 1705 (N43W26 L= 41)   608    116        2 (1043/1663-1108/1761)  33.7 W21-W30 N39-N47
      6  830 1704 (N51W08 L= 23)   266     68        0 ( 797/1689- 871/1717) -38.7 W05-W10 N48-N53
      7 1343 1595 (N28W38 L= 53)   486     89        0 (1302/1559-1384/1637) -71.6 W36-W38 N25-N31
      8 1426 1414 (N16W35 L= 50)   225     49        2 (1403/1391-1449/1443)  33.7 W32-W36 N14-N16
      9 1476 1354 (N11W35 L= 51)   626    137        1 (1439/1288-1514/1407)  40.6 W32-W40 N07-N13
     10  799 1349 (N28E06 L= 10)   432    157        0 ( 735/1287- 833/1384) -69.4 E09-E03 N23-N31
     11 1148 1348 (N19W15 L= 31)   460    183        1 (1051/1306-1228/1380) -48.4 W10-W19 N14-N23
     12  995 1295 (N20W05 L= 20)   192     76        0 ( 956/1278-1034/1310) -45.0 W02-W06 N17-N21
     13  245 1088 (N24E53 L=322)   411     64        0 ( 225/1056- 268/1115) -45.0 E55-E50 N22-N26
     14  408 1076 (N20E38 L=337)   255     51        1 ( 378/1062- 438/1096)   0.0 E40-E35 N19-N21
     15  212  958 (N17E58 L=317)   458     53        2 ( 190/ 930- 237/ 990) -53.1 E61-E55 N15-N19
     16 1370  905 (S11W17 L= 32)   225     94        0 (1324/ 891-1420/ 926) -38.7 W14-W20 S13-S08
     17  672  577 (S14E32 L=343)   405     85        0 ( 656/ 532- 687/ 625)  56.3 E34-E30 S16-S10
     18 1186  401 (S38E07 L=  8)   920    200        1 (1113/ 323-1255/ 461)  21.8 E15-W00 S42-S35
     19 1075  299 (S43E19 L=356)   416     29        0 (1051/ 281-1105/ 318) -33.7 E21-E16 S44-S40
     20 1401  248 (S61W06 L= 21)   500     41        0 (1377/ 231-1429/ 265)   0.0 W02-W09 S63-S58
  

    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